object fmProducts: TfmProducts
  Left = 0
  Top = 0
  Caption = 'Products'
  ClientHeight = 270
  ClientWidth = 343
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 11
    Width = 45
    Height = 13
    Caption = '&Company'
  end
  object Label2: TLabel
    Left = 16
    Top = 38
    Width = 37
    Height = 13
    Caption = '&Product'
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 101
    Width = 343
    Height = 169
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = dsProducts
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'CUSTOMER_ID'
        Title.Caption = 'Company ID'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'PRODUCT_NAME'
        Title.Caption = 'Name'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 308
        Visible = True
      end>
  end
  object btnClose: TButton
    Left = 251
    Top = 33
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'C&lose'
    TabOrder = 1
    OnClick = btnCloseClick
  end
  object txtProduct: TEdit
    Left = 59
    Top = 35
    Width = 145
    Height = 21
    AutoSize = False
    MaxLength = 255
    TabOrder = 2
  end
  object btnNew: TButton
    Left = 8
    Top = 69
    Width = 75
    Height = 25
    Caption = '&New'
    TabOrder = 3
    OnClick = btnNewClick
  end
  object btnDelete: TButton
    Left = 170
    Top = 70
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 4
    OnClick = btnDeleteClick
  end
  object btnSave: TButton
    Left = 89
    Top = 69
    Width = 75
    Height = 25
    Caption = '&Save'
    TabOrder = 5
    OnClick = btnSaveClick
  end
  object btnRefresh: TButton
    Left = 251
    Top = 69
    Width = 75
    Height = 25
    Caption = '&Refresh'
    TabOrder = 6
    OnClick = btnRefreshClick
  end
  object dbcbCompany: TDBLookupComboBox
    Left = 59
    Top = 8
    Width = 267
    Height = 21
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'COMPANY_NAME'
    ListSource = dsCustomers
    TabOrder = 7
    OnDropDown = dbcbCompanyDropDown
  end
  object fbProducts: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CUSTOMER_ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'PRODUCT_NAME'
        Attributes = [faRequired]
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <
      item
        Name = 'PK_CUSTOMER_PRODUCT'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'FK_CUSTOMER_PRODUCT_1'
        Fields = 'CUSTOMER_ID'
      end>
    IndexFieldNames = 'CUSTOMER_ID'
    MasterFields = 'ID'
    MasterSource = dsCustomers
    StoreDefs = True
    TableName = 'CUSTOMER_PRODUCT'
    Left = 272
    Top = 152
  end
  object fbCustomers: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'COMPANY_NAME'
        Attributes = [faRequired]
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'ADDRESS'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'POSTCODE'
        DataType = ftWideString
        Size = 5
      end
      item
        Name = 'CITY'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'STATE'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'COUNTRY'
        DataType = ftWideString
        Size = 30
      end
      item
        Name = 'COMPANY_TEL'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'COMPANY_FAX'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'COMPANY_EMAIL'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'CONTACT_NAME'
        DataType = ftWideString
        Size = 255
      end
      item
        Name = 'CONTACT_EMAIL'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'CONTACT_TEL'
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <
      item
        Name = 'PK_CUSTOMERS'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ1_CUSTOMERS'
        Fields = 'COMPANY_NAME'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'COMPANY_NAME'
    StoreDefs = True
    TableName = 'CUSTOMERS'
    Left = 200
    Top = 152
  end
  object dsCustomers: TDataSource
    AutoEdit = False
    DataSet = fbCustomers
    Left = 200
    Top = 200
  end
  object dsProducts: TDataSource
    DataSet = fbProducts
    Left = 272
    Top = 200
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    Left = 280
    Top = 104
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'D:\InvoiceManagerLensworks\invoicemanager.fdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    ServerType = 'IBServer'
    TraceFlags = [tfQExecute, tfError, tfStmt, tfConnect, tfTransact]
    Left = 200
    Top = 104
  end
end
